home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 February / EnigmA AMIGA RUN 34 (1999)(G.R. Edizioni)(IT)[!][issue 1999-02].iso / www / amitrix / xv.lha / x-viewer.awebrx < prev   
Text File  |  1998-04-20  |  1KB  |  54 lines
  1. /*
  2. $VER: x-viewer 1.03
  3. 20 Apr 1998
  4. Display images using AWebs external viewer setting.
  5. By William H. M. Parker <bill@amitrix.com>
  6. FreeWare, change the file/utility name if you edit the script.
  7.  
  8. Put x-viewer.awebrx in AWEB3:plugins . In settings/gui/popup/image
  9. Title      X-Viewer
  10. Commmand   run AWeb3:plugins/x-viewer.awebrx %u
  11. Select     'in mem' and 'not in mem'
  12.  
  13. setup menu-setting/program/programs/external viewer as well.
  14. */
  15.  
  16. chars = '`"=#?/:;\*%'||"'<>"
  17. options results
  18. if ~show('L','rexxsupport.library') then
  19. if ~addlib('rexxsupport.library',0,-30,0) then
  20. exit(20)
  21. parse arg addr
  22. file=Translate(addr,,chars)
  23. file=Word(file, Words(file))
  24. file=right(file,length(file)-lastpos('.',file))
  25. if length(file)>30 then file =right(file,30)
  26. fname='t:'time(s)'.'file
  27. 'GetCFG imageviewer var' xv
  28. if xv="" then do
  29.   call reqch('"AWebs External viewer is not configured !" "_oops"')
  30. end
  31.  
  32. xv=translate(xv,' ','; ')
  33. parse upper var xv x '%F' v
  34. xv=x||fname||v
  35. if index(xv,'%N') > 0 then do
  36.   parse upper var xv x '%N' v
  37.   xv=x'AWeb'v
  38. end
  39. 'LOAD' addr 'SAVEAS' fname
  40. 'wait' addr
  41. cnt=0
  42. do while ~exists(fname) & cnt <1000
  43. cnt=cnt+1
  44. end
  45. address command xv
  46. call delete(fname)
  47.  
  48. reqch:
  49. parse arg reqchd
  50. Request '"X-Viewer 1.02       WHMP"' reqchd
  51. if rc=5 then return(0)
  52. reqchd=result
  53. return(reqchd)
  54.